VERSION 2.00
Begin Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MONTOR Warning"
   ClientHeight    =   2070
   ClientLeft      =   1680
   ClientTop       =   2445
   ClientWidth     =   4455
   DrawStyle       =   6  'Inside Solid
   Height          =   2595
   Left            =   1620
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   ScaleHeight     =   2070
   ScaleWidth      =   4455
   Top             =   1980
   Width           =   4575
   Begin CommandButton Command2 
      Caption         =   "&Help"
      Height          =   495
      Left            =   3480
      TabIndex        =   3
      Top             =   120
      Width           =   855
   End
   Begin CommandButton Command1 
      Caption         =   "Ok"
      Default         =   -1  'True
      Height          =   495
      Left            =   2400
      TabIndex        =   2
      Top             =   120
      Width           =   975
   End
   Begin Label Label2 
      Height          =   1215
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   4215
   End
   Begin Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "WARNING!"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2175
   End
End
Option Explicit

Sub Command1_Click ()
  Form3.Hide
End Sub

Sub Command2_Click ()
  Dim Success%
  Success = WinHelpByNum(Form1.hWnd, App.HelpFile, HELP_CONTEXT, WarnHelp)
End Sub

Sub Form_Load ()
  Label2.Caption = WnTx
End Sub